home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / alfredo's pp (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  74 lines
  1. 3 dq=peek(186)
  2. 4 poke53281,1:poke53280,1
  3. 5 ifx=0thenx=1:load"alf.spr",dq,1
  4. 6 li$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  5. 7 poke169,1:poke170,2
  6. 10 printchr$(142)"[147][146]      [144]alfredo's pitiful pitfall"
  7. 20 print
  8. 30 print" written by alan gardner, james weiler,"
  9. 40 print"           and val golding"
  10. 50 print
  11. 60 print"   copyright 1987, dispute?s gazelle"
  12. 70 print"                                 [166][166]"
  13. 80 print"                                 [166][166]"
  14. 90 print"[160]     [160]                      N[163][163][163][166][166][163][163][163][163][163]";
  15. 100 print"                            N"
  16. 110 print"                           N"
  17. 120 print"                          N"
  18. 130 print"                         N{$60}{$60}[178]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  19. 140 print"                            B"
  20. 150 print"                            B        [176]{$60}{$60}";
  21. 160 print"                            B        [171]{$60}{$60}";
  22. 170 print"                     [176]CCCC[174] B        [173]{$60}{$60}";
  23. 180 print"                     Bpush[171] [179]"
  24. 190 print"                     Bme. B B   [176]{$60}{$60}[174]"
  25. 200 print"                     [173]{$60}[178][178]C[189] B   B  B"
  26. 210 print"                       BB   B   B QB"
  27. 220 print"CCCCCCCCCCCCCCCCCCCCCCC[177][177]CCC[177]CCC[177]CC[177]CCCC";
  28. 230 print
  29. 240 print
  30. 250 print"";
  31. 255 forl=217to242:pokel,128orpeek(l):next
  32. 260 :
  33. 300 v=53248:pokev+39,0:pokev+16,0:pokev+29,0:pokev+23,0:pokev+28,0
  34. 310 pokev,24+7:pokev+1,203:poke2040,192
  35. 320 pokev+21,1:fordl=1to1200:next
  36. 330 :
  37. 340 forc1=7+24to128+24step4:pokev+1,203
  38. 350 pokev,c1:poke2040,194:::rem   fordl=1to20:next
  39. 360 pokev,c1+1:poke2040,195:remfordl=1to20:next
  40. 370 pokev,c1+2:poke2040,196:remfordl=1to20:next
  41. 380 pokev,c1+3:poke2040,195:remfordl=1to20:next
  42. 390 poke54296,15:poke54296,0
  43. 400 next
  44. 410 :
  45. 420 poke2040,194
  46. 430 :
  47. 440 print"";
  48. 450 d$="[192][192][192][192][192]"
  49. 460 printd$;"[157][157][157][157][157]";:forx=1to5
  50. 470 d$=left$(d$,5-x)
  51. 480 iflen(d$)<5thend$=d$+" ":goto480
  52. 490 printd$;"[157][157][157][157][157]";:nextx
  53. 500 print"[174]   [176]"
  54. 510 printspc(15)"[194]   [194]"
  55. 520 printspc(15)"[194]   [194]"
  56. 530 printspc(15)"[194]   [194]";
  57. 540 :
  58. 550 poke2040,193:forx=203to230:pokev+1,x:next
  59. 560 :
  60. 570 print"";
  61. 580 ifrnd(1)<.1thena=rnd(1)*5:b=rnd(1)*5+2:printspc(a)left$(li$,b);:goto600
  62. 590 ifrnd(1)>.9thena=rnd(1)*5+20:b=rnd(1)*5+2:printspc(a)left$(li$,b);
  63. 600 print""spc(15)"[194]   [194]":print
  64. 610 ifpeek(198)=0then570
  65. 620 :
  66. 630 pokev+21,0
  67. 632 poke56,160:clr:dq=peek(186)
  68. 635 print"[147]    returning to dispute?'s gazelle..."
  69. 640 print"load"chr$(34)"dispute*"chr$(34)","dq":":print"run:"
  70. 642 poke631,13:poke632,13:poke198,2:end
  71. 59999 end
  72. 60000 d=peek(186):open1,d,15,"i0":n$="alfredo's pp"
  73. 60001 print#1,"s0:"+n$:close1:saven$,d:end
  74.